Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\testfolder")
